home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / listing 14 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  278b  |  13 lines
  1. 0 GOTO10
  2. 1 , 0300 AD 00 1C LDA $1C00
  3. 2 , 0303 29 10    AND #$10
  4. 3 , 0305 4A       LSR
  5. 4 , 0306 8D 00 1C STA $1C00
  6. 5 , 0309 4C 00 03 JMP $0300
  7. 6 :
  8. 10 OPEN1,8,15
  9. 20 FORX=0TO11:READA
  10. 30 PRINT#1,"M-W"CHR$(X)CHR$(3)CHR$(1)CHR$(A):NEXT
  11. 40 PRINT#1,"M-E"CHR$(0)CHR$(3)
  12. 50 DATA173,0,28,41,16,74,141,0,28,76,0,3
  13.